home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / guile / 1.8 / lang / elisp / base.scm next >
Encoding:
Text File  |  2008-12-17  |  1.9 KB  |  49 lines
  1. (define-module (lang elisp base)
  2.  
  3.   ;; Be pure.  Nothing in this module requires symbols that map to the
  4.   ;; standard Guile builtins, and it creates a problem if this module
  5.   ;; has access to them, as @bind can dynamically change their values.
  6.   ;; Transformer output always uses the values of builtin procedures
  7.   ;; and macros directly.
  8.   #:pure
  9.  
  10.   ;; {Elisp Primitives}
  11.   ;;
  12.   ;; In other words, Scheme definitions of elisp primitives.  This
  13.   ;; should (ultimately) include everything that Emacs defines in C.
  14.   #:use-module (lang elisp primitives buffers)
  15.   #:use-module (lang elisp primitives char-table)
  16.   #:use-module (lang elisp primitives features)
  17.   #:use-module (lang elisp primitives format)
  18.   #:use-module (lang elisp primitives fns)
  19.   #:use-module (lang elisp primitives guile)
  20.   #:use-module (lang elisp primitives keymaps)
  21.   #:use-module (lang elisp primitives lists)
  22.   #:use-module (lang elisp primitives load)
  23.   #:use-module (lang elisp primitives match)
  24.   #:use-module (lang elisp primitives numbers)
  25.   #:use-module (lang elisp primitives pure)
  26.   #:use-module (lang elisp primitives read)
  27.   #:use-module (lang elisp primitives signal)
  28.   #:use-module (lang elisp primitives strings)
  29.   #:use-module (lang elisp primitives symprop)
  30.   #:use-module (lang elisp primitives syntax)
  31.   #:use-module (lang elisp primitives system)
  32.   #:use-module (lang elisp primitives time)
  33.  
  34.   ;; Now switch into Emacs Lisp syntax.
  35.   #:use-syntax (lang elisp transform))
  36.  
  37. ;;; Everything below here is written in Elisp.
  38.  
  39. (defun load-emacs (&optional new-load-path debug)
  40.   (if debug (message "load-path: %s" load-path))
  41.   (cond (new-load-path
  42.          (message "Setting load-path to: %s" new-load-path)
  43.          (setq load-path new-load-path)))
  44.   (if debug (message "load-path: %s" load-path))
  45.   (scheme (read-set! keywords 'prefix))
  46.   (message "Calling loadup.el to clothe the bare Emacs...")
  47.   (load "loadup.el")
  48.   (message "Guile Emacs now fully clothed"))
  49.